home *** CD-ROM | disk | FTP | other *** search
/ Digital News 2 / Digital_News_2_1988_-_de_Side_B.d64 / special save < prev    next >
Encoding:
Text File  |  1988-01-01  |  971 b   |  86 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6. ;special save (auch unter $d000)
  7. ;           (w) by mws
  8.  
  9. ;in $ac/$ad = anfangsadresse
  10.  
  11. ;in $ae/$af = endadresse
  12.  
  13.  
  14.  
  15. slo      = $ac
  16. shi      = $ad
  17. elo      = $ae
  18. ehi      = $af
  19.  
  20.  
  21.  
  22.  
  23.  
  24.          lda #$08
  25.          tax
  26.          ldy #$01
  27.          jsr $ffba
  28.  
  29.          lda #$03
  30.          ldx #<nam
  31.          ldy #>nam
  32.          jsr $ffbd
  33.  
  34.          jsr $ffc0
  35.  
  36.          lda #$61
  37.          sta $b9
  38.          jsr $f3d5
  39.  
  40.          lda $ba
  41.          jsr $ed0c
  42.  
  43.          lda $b9
  44.          jsr $edb9
  45.  
  46.          lda slo
  47.          jsr $eddd
  48.          lda shi
  49.          jsr $eddd
  50.  
  51.  
  52. ok       ldy #$00
  53.          sei
  54.          sty $01
  55.          lda (slo),y
  56.          dey
  57.          sty $01
  58.          cli
  59.  
  60.  
  61.          jsr $eddd
  62.  
  63.          bit $90
  64.          bvc ende
  65.  
  66.          inc slo
  67.          bne kkb
  68.  
  69.          inc shi
  70.  
  71. kkb      ldy slo
  72.          cpy elo
  73.          bne ok
  74.          ldy shi
  75.          cpy ehi
  76.          bne ok
  77.  
  78. ende     jsr $ffc3
  79.          jsr $ffe7
  80.          jsr $f642
  81.          rts
  82.  
  83.  
  84. nam      .text "@:a"
  85.  
  86.